home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / misc / avmNfax1_33.lha / AVMSuite / rexx / alertmessages.avm < prev    next >
Text File  |  1994-06-24  |  530b  |  22 lines
  1. /* */
  2.  
  3. parse arg numVoiceMessages .
  4.  
  5. avmbusy = getclip('AVMBusy')
  6. if avmbusy = "" | avmbusy = "0" then do
  7.     if (numVoiceMessages = 1) then
  8.       address command "run >nil: <nil: avm:dsound -2 avm:have1message.iff"
  9.           /*
  10.       address command "run >nil: <nil: avm:agmsplaysound avm:have1message.iff"
  11.           */
  12.  
  13.     if (numVoiceMessages > 1) then
  14.       address command "run >nil: <nil: avm:dsound -2 avm:havemessages.iff"
  15.           /*
  16.       address command "run >nil: <nil: avm:agmsplaysound avm:havemessages.iff"
  17.           */
  18. end
  19.  
  20. exit
  21.  
  22.